home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 105 / 105.d81 / lcopy ii (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  7 lines
  1. 10 f=abs(peek(65533)=255)
  2. 12 mo=144
  3. 20 iff=0thenpl=peek(43):ph=peek(44)
  4. 30 iff=1thenpl=peek(45):ph=peek(46):(NULL)0
  5. 40 poke 250,pl:poke251,ph:poke252,mo
  6. 50 sys(ph*256+pl+mo+6)
  7.